NINE[0,BGB] - www.SailDart.org

perm filename NINE[0,BGB] blob sn#109799 filedate 1974-07-11 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE NINE
C00003 ENDMK
C⊗;
TITLE NINE

REV1:	0
	TRCE 401↔TRCE 401↔TRCE 401
	TRCE 202↔TRCE 202↔TRCE 202
	TRCE 104↔TRCE 104↔TRCE 104
	TRCE 060↔TRCE 060↔TRCE 060
	JRST @REV1

REV2:	0
	MUL [10004002001]
	AND [210210210010]
	IDIVI 377
	MOVE 1
	ANDI 177
	JRST @REV2

SA:	MOVEI 10,177
	MOVE 0,10↔JSR REV1↔MOVEM 0,7
	MOVE 0,10↔JSR REV2
	CAME 0,7
FUCK:	JFCL
	SOJGE 10,SA+1
EOL:	HALT
END SA